home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 5 / MacMania 5.toast / / Tools&Utilities / Plotfoil 3.2 / naca-1.0 / exit.f next >
Text File  |  1995-09-13  |  489b  |  18 lines
  1. c
  2. c------------------------------------------------------------------------------
  3. c
  4.       SUBROUTINE Exit( i )
  5. c
  6.       IMPLICIT none
  7.       INTEGER i
  8. c
  9. c  This routine is a replacement for the exit() system call, which is
  10. c  lacking a trailing underscore on the HP's that I have access to. All
  11. c  the other library functions have the underscore, as is customary
  12. c  with UNIX Fortran compilers, so it looks like a stupid fuckup by
  13. c  HP (is that really surprising?).
  14. c
  15.       stop
  16.       END
  17.  
  18.